home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presentation Library 1993 Spring / ARPL-Spring-93-Partner-Edition.iso / Applications / Word Processing / Aldus Personal Press 2.0 / PPPouch / Additions / SharedScript / SharedScript
Encoding:
Text File  |  1992-05-29  |  333 b   |  20 lines  |  [SGPA/SCPG]
  1. on ShareInit
  2.  
  3. put ":Additions:RunTimes" into thefile
  4. if exists( file thefile) then 
  5. open file thefile
  6. read from file thefile for 2000
  7. add 1 to it
  8. if it = 20 then
  9. helpdialog 500, "How Are We Doing?"
  10. end if
  11. close file theFile
  12. open file theFile
  13. write it to file theFile
  14. close file thefile
  15. end if
  16.  
  17. end ShareInit
  18.  
  19.  
  20.     i<BÏ